---
title: "Terms - All"
author: "`r Sys.info()['user']`"
date: "`r format(Sys.time(), '%Y-%m-%d')`"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE, fig.width = 10, fig.height = 5)
source("functions.R")
require(LSX)
require(ggplot2)
require(ggrepel)
lss_ja <- readRDS("lss_ja.RDS")
lss_he <- readRDS("lss_he.RDS")
```

```{r}
textplot_terms(lss_ja, dict_ja["highlights"]) + xlim(-0.15, 0.15)
```

```{r}
head(names(coef(lss_ja)), 50)
tail(names(coef(lss_ja)), 50)
```


```{r}
textplot_terms(lss_he, dict_he["highlights"]) + xlim(-0.15, 0.15)
```

```{r}
head(names(coef(lss_he)), 50)
tail(names(coef(lss_he)), 50)
```


